home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1994 June / PC Plus Super CD coverdisc Issue 93 June 1994.iso / suprdisk / button / frmupdat.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-01  |  2.7 KB  |  82 lines
  1. VERSION 2.00
  2. Begin Form frmUpdate 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   930
  6.    ClientLeft      =   4305
  7.    ClientTop       =   2655
  8.    ClientWidth     =   4245
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Height          =   1335
  12.    Left            =   4245
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   930
  17.    ScaleWidth      =   4245
  18.    Top             =   2310
  19.    Width           =   4365
  20.    Begin Label lblWait 
  21.       BackStyle       =   0  'Transparent
  22.       Caption         =   "Please wait"
  23.       FontBold        =   -1  'True
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS Sans Serif"
  26.       FontSize        =   12
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       ForeColor       =   &H00008000&
  30.       Height          =   330
  31.       Left            =   1425
  32.       TabIndex        =   1
  33.       Top             =   450
  34.       Width           =   1440
  35.    End
  36.    Begin Label lblUpDate 
  37.       BackStyle       =   0  'Transparent
  38.       Caption         =   "UPDATING THE DISABLED BUTTON"
  39.       FontBold        =   -1  'True
  40.       FontItalic      =   0   'False
  41.       FontName        =   "MS Sans Serif"
  42.       FontSize        =   9.75
  43.       FontStrikethru  =   0   'False
  44.       FontUnderline   =   0   'False
  45.       ForeColor       =   &H00FFFFFF&
  46.       Height          =   285
  47.       Left            =   150
  48.       TabIndex        =   0
  49.       Top             =   180
  50.       Width           =   3915
  51.    End
  52. Option Explicit
  53. '   See Update_Button in Button.bas
  54. Sub Form_Activate ()
  55.     Dim X As Integer
  56.     Dim Y As Integer
  57.     lblUpDate.Refresh
  58.     lblWait.Refresh
  59.     Screen.MousePointer = 11
  60.     For X = 3 To BitMap.ButtonWidth - 4
  61.         For Y = 3 To BitMap.ButtonHeight - 4                     'QBColor(8)
  62.             Select Case B(0).Point(X, Y)
  63.                 Case QBColor(0), QBColor(1), QBColor(2), QBColor(3), QBColor(4), QBColor(5), QBColor(6)
  64.                     B(2).PSet (X, Y), &H808080  'QBColor(8)
  65.                     If Inside_Array(X + 1, Y + 1) Then B(2).PSet (X + 1, Y + 1), &HFFFFFF
  66.                 Case QBColor(8)
  67.                     If Inside_Array(X - 1, Y - 1) Then     'QBColor(8)                        'QBColor(7)
  68.                         If B(2).Point(X - 1, Y - 1) <> &H808080 Then B(2).PSet (X, Y), &HC0C0C0
  69.                     End If
  70.                 Case Else
  71.                     Rem
  72.             End Select
  73.         Next Y
  74.     Next X
  75.     Screen.MousePointer = 0
  76.     UpDated = True
  77.     Unload frmUpDate
  78. End Sub
  79. Sub Form_Load ()
  80.     Position_Form frmUpDate
  81. End Sub
  82.